<%'  ------------------------------------------------------------
  '  convToHints.asp 
  '  ------------------------------------------------------------
  '  VCS INFO:
  '  
  '  $Revision:   1.0  $
  '  $Date:   05 Mar 1998 17:08:36  $
  '  $Author:   RSOLOMON  $
  '  $Workfile:   convtohints.asp  $
  '  ------------------------------------------------------------
  '  All Rights Reserved.  Copyright (c) 1988-1998 FileNET Corp.
  '  ------------------------------------------------------------
  '%>

<%

Function ConvertToHints(ObjType, PropDesc)
			   
	DataType = PropDesc.TypeID
	select case DataType
		case Application("idmTypeShort")
			s = "short"
		case Application("idmTypeLong")
			s = "long"
		case Application("idmTypeSingle")
			s = "single"
		case Application("idmTypeDouble")
			s = "double"
		case Application("idmTypeDate")
			s = "date"
		case Application("idmTypeString")
			if ObjType = Application("idmObjTypeFolder") then
				s = "string"
			else
				s = "string:" ' + CStr(PropDesc.Size)
			end if
		case Application("idmTypeBoolean")
			s = "boolean"
		case Application("idmTypeByte")
			s = "byte"
		case Application("idmTypeUnsignedShort")
			s = "unsigned short"
		case Application("idmTypeUnsignedLong")
			s = "unsigned long"
		case Application("idmTypeArray")
			s="array"
		case Application("idmTypeObject")
			s="object"
		case Application("idmTypeVariant")
			s="variant"
	end select
	ConvertToHints = s
End Function
%>

